CAADiameters_SunSemidiameterA <-
function(Delta){
.Call("CAADiameters_SunSemidiameterA", Delta)
}
